C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


**F ]LE**1DeewF CLEAR 


aca aca ca 
ca ecaac 
an cacec 
ca ca 
ca ca 
@Qacacncacaacaaccaca 
4-4-4.4.4-4-4-4-4-4-4- 4-4-4 
qqaqaqeaqaceaddtaaacet 
q<aqdqaqeacdcetacecacaa 
<a << 
aia << 
aia << 
aac << 
aia << 
aa << 
SS Se Se Se, Se Se, Se, Se So Se 4 
qadetaeaeaetacacacacaet 
wow usu 
wus LVS IVS) 
ww usu wu 
ww ww wi 
wus usu Wu 
wu uous sabeas 
wus bat hd ae 
wus Ledtas aee 


4 
ital 
sailed 
lel 
dad 
a4 
ee 
we hae 
el cal lial lc ah clcabth abba 
tea ated veil cacdl ail cal call asDndedl 
vw aro ard 
Ooo te 
Paya burturd 
Coo arte 
pares bated 
Coo Petes 
Coo arer4 
pare seated 


KL ho tS Sts 
VYVYVVYVYYUULUY 


rerves 
i 

wae i te 
vere tn 
(vanes Ate be 
vers a to 
— A 
as — 


SS 
a Se a Sao 


$3333353353333 
33 
33233322223322 


nw Mwnwnn 
nw NMNMMnmM 
nn nw wn 
nn nw uwn 
nn ww nn 
nn nw wn 
WwW Ynw mn 
nn nw vn 
MNnNM ann 
YNNM an 
ieiaila ceed 


LLLLLLLLLL 
LLLLLLLLLL 


] 
EDTSWFCLEAR = empty the current buffer 1b-se Sep-1984 VAX-11 Bliss-32_V 1| oof | 
: Ve-Sep-1984 13:95:37 DISKSVMGMASTERSCEDT SRCTWFCLEAR.BLIs1°o (1). 
; 1 001 ZTITLE "EDTSWFCLEAR = empty the current buffer' | 
3 § 0 ; MODULE EDTSWFCLEAR ( ! Empty the current buffer 
; ? ? we = *v04-000' ! File: WECLEAR.BLI Edit: JBS1003 
i 9005 | BEGIN | 
; 6 44 1} 
3 4 44 1 eer uct torn ag, ae ea ao a ee 
3 Me 
Bee | 0009 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * | 
: 10 0010 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. . 
; ‘ Batt : - ALL RIGHTS RESERVED. * | 
; ‘ * 
; ig $018 1 !* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 VG 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 15 0015 1 !* INCLUSION OF THe ABOVE pid NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTH ERWISE MADE AVAILABLE TO ANY * 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 Ys dt : TRANSFERRED. * 
3 i‘ *® 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $f te) : ? CORPORATION. * 
3 ‘ff * 
3 $e 0034 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 5 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; @& 0026 1 !* * 
cn ae 0027 1 !* * 
3 28 0028 1 eee rere eee e ee eee E AAA AREA A AA AA AAA AERA ERERE EEE 
; 9 0029 1! 
3 $0 6080 1 
cae 0031 1 !++ 
; 32 0032 1 ! FACILITY: EDT == The DEC Standard Editor 
3 3 0033 1! 
; 4 0034 1 ! ABSTRACT: 
a. 2 0035 1! 
s 0036 1! Empty the current buffer. 
EB a 0037 1! 
; $ sit ' ENVIRONMENT: Runs at any access mode - AST reentrant 
; 40 9040 i AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
; 4g 004g | i MODIFIED BY: 
, 4 0043 1! 
2: «646 0044 1 ! 1-001 = Original. DJS 23-Feb-1981. This module was created by 
, 65 0045 1! extracting routine EDTS$wF _CLRBUF from module EDTWF. 
3; 0046 1 ! 1-002 - Regularize headers. JBS~ 16-Mar-1981 
; 44 0047 : 1-005 = Improve the appearance of the Listing. JBS 20-Jun-1983 
: 49 1 
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= empty the current buffer 1-8 sep-1 =] 386 0g: 93: 33 


XSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSWF_CLRBUF : NOVALUE; 


: INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


MACROS: 
; NONE 

: EQUATED SYMBOLS: 
NONE 

| QWN STORAGE: 

NONE 

i EXTERNAL REFERENCES: 
: In the routine 


VAX-11 Bliss 
DISKSVMSMAST 


-32 ¥4.0-7 
ER:CEDT. SRC WFCLEAR.BLI; ° 
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A - empty the current buffer 


K 
16-Sep-1984 95:03:38 VAX=11 Bliss-32 ye r°snes Pa 
LRBUF = empty the current buffer 14-Sep-1984 12:25: DISKSVMSMASTER:CEDT.SRCJWFCLEAR.BLI;1 


XSBTTL "EDTSSWF_CLRBUF - empty the current buffer’ 
GLOBAL ROUTINE EDTSS$WF_CLRBUF ! Empty the current buffer 
: NOVALUE = 

lee 

! FUNCTIONAL DESCRIPTION: 
Clear the entire current buffer. The first bucket of the buffer is 
updated to be empty, and, if there is more than one, the rest of the 
bucket is placed on the available bucket list. Note that since the 
buckets are aireeey Linked together, we need | Link the last bucket 
in the buffer to the current available bucket, then make avail the 
first bucket we are releasing. 

FORMAL PARAMETERS: 
NONE 

IMPLICIT INPUTS: 


EDTSS$A_CUR_BUF 
EDT$$G_WK_AVAIL 


“WK -BUK 
EDT$$G_WK~CURBUK 
EDTSS$L_LNO_ZERO 


IMPLICIT OUTPUTS: 
EDT$$G_WK_AVAIL 
WK ~BUK 


EDTS$$A_CUR_BUF 
EDT$$G_WK_MODFD 


ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


Oe ee ee te et ee ee ee ee ee 


BEGIN 


EXTERNAL ROUTINE 
EDT$S$WF_BOT : NOVALUE 
EDTS$TOP_BUF : NOVALUE; 


EXTERNA 
EDTSSA_CUR BUF : REF TBCB_BLOCK, ' Current text buffer control block 
EDTS$$G_WK_AVAIL, ' Pointer to next available deleted bucket 
EDTS$A_WK BUK : ! Pointer to current bucket 
REF BCOCK CWF_BUKT_SIZE, BYTE) FIELD (WEB FIELDS) 
EDT$$G_Wk_CURBUK, ! Number of the current bucket | 
EDTS$G_WK_MODFD, ! Flag indicating bucket was modified 
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EDTSWFCLEAR 
04000 


"en 


el 
LEAR = empty the current buffer gep 
_CLRBUF = empty the current buffer Sep 


PL 
cn 


EDTSSL_LNO_ZERO : 
EDTSSTOP_BUF (); 


LN_BLOCK; 


Release remaining buckets if there are more than one. 


IF _(.EDTSSA_WK_BUK CWFB_NEXT_BUKT] NEQ 0) 
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EDTSS$A_CUR BUF 
END; 
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71984 15:25:27  DISKSUNSMASTERS EDT. s 


SRCSUFCLEAR. BLI; ° 


10) 

: 128 

: 144 

; ye 

s 128 

: 148 

; 149 N 

; 150 BEGIN 

3 (151 BOT SSuF 

: 138 EDTS$A oR: ObUK ‘ives NEXT_BUKT] = .EDT$$G_WK_AVAIL; 
: 133 EDTSSG. WK oes: = 7; 

; 155 EDTS$G_WR_AVAIL = .EDTSSA_WK_BUK CWFB_NEXT_BUKT); 
3 128 END; 

: 158 EDTSSA. CUR_BUF CTBCB L NE_ADDR) = WFB_FIXED_SIZE; 

: 159 EDTSSA_WK_BUK CWFB_END) = witet pt. STZE; 

; 160 EDT$SA_WK_BUK WFB NEXT _BUKT 

3: 161 EDTS$$G_WK 

; 162 MOVELINE cepiss “UNO ZERO, EDTSSA_CUR_BUF CTBCB_LINE_COUNT)); 
3; (16 é EDTS$A_CUR TBCB_CHAR_COUNT) = 0;~ 

: 166 TBCB_ “LAST “BUKT] = .EDTS$$G_WK 1 CURBUK ; 


T of routine EDTS$$wWF _CLRBUF 


EDTSWFCLEAR EDTSWFCLEAR - empty the current 
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DTSS$WF_BOT, EDTSSTOP BUF 
DTS$$A_CuUR R_BUF, EDT$$G_WK_AVAIL 
DTSSA_ we x BU K, EDT$$G_Qx_CURBUK 
DT$$G_WK-MODFD 

DT$SL -[NO” OERO 


_EDTSCODE,NOWRT, SHR, PIC,2 
EDTSSWF_CLRBUF, Save R2,R3,R4.R5,R6,R7.R8,- 
EDT$$TOP_BUF, R10 

T$$G_uR -RobFD. R9 
$$G~ WK AVAIL RB 
$$A°u BUK if 
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DI$SWF_BOT 
S" “tk: BVALL 2(RO) 
DT$$G_wWK MODFD 

DT He BuF 
A_WK 
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“ED TS$G" WK_AVAIL 
CUR_BUF, R6 


buf 


Sete Se Se Se Se Se Ge Ge Se Se Ge Se Se Se Ge Se Ge 


ee me ee a a ed dd od od 


EDTSWF CLEAR EDTSWFCLEAR = empty the current buffer 
v04-000 


EDTSSWF_CLRBUF = empty the current buffer 
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; Routine Size: 112 bytes, Routine Base: _EDTSCODE + 0000 


; 166 o736 1 
3; 167 07 1 !<BLF/PAGE> 
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“tho” PERO, 24(R6) 
_CURBUK, 16(R6) 
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EDTSWFCLEAR EDTSWFCLEAR = empty the current buffer Sep-19 VAX=11 Bliss-32 V4.0-74 6 EDTS 
4-000 EDTSSWF_CLRBUF : Jepty the current buffer 1278 Sep aati 93: 3: 33 PTSKSVMSMAS TER: CEDT.SRCJWFCLEAR.BLI;1 ee (4) v04- 
3; «6169 7 END ! of module EDTSWFCLEAR ; 
2 198 oF89 | of module £ CLE : 
: 171 740 0 ELUDOM é 
; 
$ PSECT SUMMARY | 
; Name Bytes Attributes | : 
: EDTSCODE 112 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
H Library Statistics 
: coccce Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time | 
: _$255$DUA28: :CEDT .SRCJEDT.L32;1 377 37 9 40 00:00.2 
> ~$255$DUA28: -SRCJPSECTS.L32;1 2 1 50 7 00:00.1 
| 

; COMMAND QUALIFIERS | 
; BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:WFCLEAN, 0BJ=OBJS:WFCLEAR MSRCS:WFCLEAR.BLI/UPDATE=(ENHS:WF CLEAR 

Size: 112 of°4f + 0 data bytes 

Run Time Toe 

Fyapsed Hues 7 1 


Lines/CPU Min: 09: 7 
ponenens ry -Was 11937 

ry Used: 74 pages 
os ation Complete 
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